home *** CD-ROM | disk | FTP | other *** search
/ Deutsche Edition 1 / Deutsche Edition 1.iso / amok / amok_lha / amok15.lha / Seafarers_Manual / Source / FileMake.mod < prev    next >
Text File  |  1993-08-15  |  1KB  |  42 lines
  1. MODULE FileMake;   (* Sequential file creation *)
  2.  
  3.   (* From the book "Modula-2  A Seafarer's Manual and Shipyard Guide" *)
  4.   (* Page 128   adapted "Amiga M2Modula-2"   09 Mar 1988 *)
  5.  
  6. FROM InOut IMPORT eol,        (* end of line *)
  7.                   done,        (* status of operation
  8.                                    TRUE => success
  9.                                    FALSE => failure *)
  10.                   OpenOutput,    (* accept file name from terminal
  11.                                    & open it for output *)
  12.                   CloseOutput,    (* close output file *)
  13.                   Write,    (* write character *)
  14.                   WriteCard,    (* write cardinal value *)
  15.                   WriteLn,    (* write cr/line feed *)
  16.                   WriteString;    (* write string *)
  17.  
  18. CONST
  19.   JobDes = "ABCDEFGHIJKLMNOPQRSTUVWXYZ";
  20.   
  21. VAR
  22.   CrewNum : [1..100];
  23.   
  24. BEGIN
  25.   WriteString ("Enter output file name: ");
  26.   
  27.   REPEAT
  28.     OpenOutput ("");        (* supply no default extension *)
  29.   UNTIL done;
  30.   
  31.   FOR CrewNum := 1 TO 100 BY 1 DO
  32.     WriteCard (CrewNum,8);
  33.     WriteString (JobDes);
  34.     Write (eol);
  35.   END;
  36.   
  37.   CloseOutput;
  38.   WriteString ("File creation complete");
  39.   WriteLn;
  40.   
  41. END FileMake.
  42.